home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / rextern.cpt / X-Archive 2.0 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-09-20  |  11.0 KB  |  115 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>96</cardCount>
  7.     <cardID>46459</cardID>
  8.     <listID>17631</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>All externals in this stack are free for unlimited non-commercial use with mention of the author's name and copyright.
  17.  
  18. Commercial use must be licensed and acknowledged.
  19.  
  20. ┬⌐ F. Rinaldi, 1989-92
  21.  
  22. AppleLink: RINALDI1
  23. CalvaCom: FR10
  24. CIS: 71170,2111
  25.  
  26. ---
  27.  
  28. on openStack
  29. if siBu()
  30. then exit openStack
  31. dHK true
  32. end openstack
  33.  
  34. on suspendStack
  35. dHK false
  36. end suspendStack
  37.  
  38. on resumeStack
  39. dHK true
  40. end resumeStack
  41.  
  42. on closeStack
  43. if siBu()
  44. then exit closeStack
  45. dHK false
  46. if (freesize of this stack)>15000
  47. then answer "I need a squeeze."&RETURN&┬¼
  48. "Take whatever action you feel appropriate."┬¼
  49. with "Close" or "Compact"
  50. if (it="Close") then domenu "compact stack"
  51. end closeStack
  52.  
  53. on dHK x
  54. global tLst
  55. if x then
  56. if (CardTop()=0) then hide menubar
  57. get (cd fld id 1 of cd 1)
  58. else
  59. show menuBar
  60. get ""
  61. end if
  62. put it into tLst
  63. end dHK
  64.  
  65. on deletecard
  66. global tLst
  67. get (number of this cd)
  68. delete line it of cd fld 1 of cd 1
  69. delete line it of tLst
  70. end deletecard
  71.  
  72. on newcard
  73. global tLst
  74. put (number of this cd) into z
  75. get (short name of this cd)
  76. if ("card id " is in it)
  77. then get ("Card"&&z)
  78. get (it&return)
  79. put it before line z of cd fld id 1 of cd 1
  80. put it before line z of tLst
  81. end newcard
  82.  
  83. function siBu
  84. return not (name of this stack is the name of me)
  85. end siBu
  86.  
  87. ----
  88.  
  89. function tCd y
  90. wmc
  91. global tLst
  92. return listselect("1#",tLst,"s="&y,"Pick a cardΓǪ","geneva,9","175,15,337,325")
  93. end tCd
  94.  
  95. on tginfo bN
  96. svcf 5,bN
  97. svcb 9,bN
  98. end tginfo
  99.  
  100. on tghelp bN
  101. svcf 10,bN
  102. svcb 11,bN
  103. end tghelp
  104.  
  105. on tgpix bN
  106. svcb 6,bN
  107. svcb 7,bN
  108. svcb 8,bN
  109. svcb 13,bN
  110. svcf 14,bN
  111. set showpict of this cd to bN
  112. end tgpix
  113.  
  114. function CardTop What
  115. if (the version contains "SuperCard")
  116. then return SCTop()
  117. else return (top of cd window)
  118. end CardTop
  119.  
  120. function SCTop
  121. return (top of window)
  122. end SCTop
  123.  
  124. on hideAll
  125. ls
  126. repeat with i=2 to (number of cd flds)
  127. hide cd fld i
  128. end repeat
  129. repeat with j=2 to (number of btns)
  130. hide btn j
  131. end repeat
  132. uls
  133. end hideAll
  134.  
  135. ----
  136.  
  137. on wmc
  138. wait while the mouseclick
  139. end wmc
  140.  
  141. on ls
  142. lock screen
  143. end ls
  144.  
  145. on uls x
  146. if (x="") then unlock screen
  147. else unlock screen with x
  148. end uls
  149.  
  150. on cLr1
  151. tginfo false
  152. tghelp false
  153. tgpix false
  154. end cLr1
  155.  
  156. on svcf x,y
  157. set visible of cd fld id x to y
  158. end svcf
  159.  
  160. on svcb x,y
  161. set visible of btn id x to y
  162. end svcb
  163.  
  164. function vcf x
  165. return (visible of cd fld id x)
  166. end vcf
  167.  
  168. function vcb x
  169. return (visible of btn id x)
  170. end vcb
  171.  
  172. </script>
  173.     <background id="46925" file="background_46925.xml" name="key" />
  174.     <card id="46459" file="card_46459.xml" marked="false" name="*Title*" owner="46925" />
  175.     <card id="4021" file="card_4021.xml" marked="false" name="" owner="46925" />
  176.     <card id="4934" file="card_4934.xml" marked="false" name="ATalkZones 1.1" owner="46925" />
  177.     <card id="47625" file="card_47625.xml" marked="false" name="Calendoid 1.3" owner="46925" />
  178.     <card id="5585" file="card_5585.xml" marked="false" name="CapsLock 1.0" owner="46925" />
  179.     <card id="6005" file="card_6005.xml" marked="false" name="ChooseColor 1.1" owner="46925" />
  180.     <card id="6407" file="card_6407.xml" marked="false" name="Chooser 1.3" owner="46925" />
  181.     <card id="6939" file="card_6939.xml" marked="false" name="ClipInfo 1.0" owner="46925" />
  182.     <card id="7521" file="card_7521.xml" marked="false" name="" owner="46925" />
  183.     <card id="17032" file="card_17032.xml" marked="false" name="CopyRes 1.8*" owner="46925" />
  184.     <card id="8668" file="card_8668.xml" marked="false" name="" owner="46925" />
  185.     <card id="9004" file="card_9004.xml" marked="false" name="CreateStack 1.1" owner="46925" />
  186.     <card id="9593" file="card_9593.xml" marked="false" name="DateConverter 1.0" owner="46925" />
  187.     <card id="10163" file="card_10163.xml" marked="false" name="DocCreator 1.2" owner="46925" />
  188.     <card id="10501" file="card_10501.xml" marked="false" name="DocTypes 1.5" owner="46925" />
  189.     <card id="11120" file="card_11120.xml" marked="false" name="DoMenu 1.0" owner="46925" />
  190.     <card id="11622" file="card_11622.xml" marked="false" name="EraseFile 1.1" owner="46925" />
  191.     <card id="12229" file="card_12229.xml" marked="false" name="" owner="46925" />
  192.     <card id="3055" file="card_3055.xml" marked="false" name="" owner="46925" />
  193.     <card id="13256" file="card_13256.xml" marked="false" name="FileIsOpen 1.1" owner="46925" />
  194.     <card id="13801" file="card_13801.xml" marked="false" name="FileMaker 1.1" owner="46925" />
  195.     <card id="14209" file="card_14209.xml" marked="false" name="FindFolder 1.0" owner="46925" />
  196.     <card id="14781" file="card_14781.xml" marked="false" name="FolderSize 1.1" owner="46925" />
  197.     <card id="15241" file="card_15241.xml" marked="false" name="FontMaster 1.2" owner="46925" />
  198.     <card id="48568" file="card_48568.xml" marked="false" name="" owner="46925" />
  199.     <card id="15698" file="card_15698.xml" marked="false" name="FullBalloons 1.0" owner="46925" />
  200.     <card id="16310" file="card_16310.xml" marked="false" name="" owner="46925" />
  201.     <card id="16663" file="card_16663.xml" marked="false" name="" owner="46925" />
  202.     <card id="2516" file="card_2516.xml" marked="false" name="" owner="46925" />
  203.     <card id="17814" file="card_17814.xml" marked="false" name="FullMove 1.1" owner="46925" />
  204.     <card id="12862" file="card_12862.xml" marked="false" name="" owner="46925" />
  205.     <card id="18193" file="card_18193.xml" marked="false" name="FullRemove 1.0" owner="46925" />
  206.     <card id="18815" file="card_18815.xml" marked="false" name="" owner="46925" />
  207.     <card id="19304" file="card_19304.xml" marked="false" name="" owner="46925" />
  208.     <card id="19894" file="card_19894.xml" marked="false" name="" owner="46925" />
  209.     <card id="20455" file="card_20455.xml" marked="false" name="" owner="46925" />
  210.     <card id="20770" file="card_20770.xml" marked="false" name="FullSFPut 1.3" owner="46925" />
  211.     <card id="21449" file="card_21449.xml" marked="false" name="" owner="46925" />
  212.     <card id="21975" file="card_21975.xml" marked="false" name="FullSort 2.7-2" owner="46925" />
  213.     <card id="22427" file="card_22427.xml" marked="false" name="FullSort 2.7-3" owner="46925" />
  214.     <card id="22940" file="card_22940.xml" marked="false" name="FullText 1.0" owner="46925" />
  215.     <card id="23541" file="card_23541.xml" marked="false" name="GetBootVol 1.1" owner="46925" />
  216.     <card id="23886" file="card_23886.xml" marked="false" name="GetDir 1.8" owner="46925" />
  217.     <card id="24896" file="card_24896.xml" marked="false" name="GetFInfo 1.1" owner="46925" />
  218.     <card id="49343" file="card_49343.xml" marked="false" name="" owner="46925" />
  219.     <card id="25348" file="card_25348.xml" marked="false" name="GetMode 1.3" owner="46925" />
  220.     <card id="26003" file="card_26003.xml" marked="false" name="GetPassword 1.3" owner="46925" />
  221.     <card id="26518" file="card_26518.xml" marked="false" name="GetSysFolder 1.0" owner="46925" />
  222.     <card id="50395" file="card_50395.xml" marked="false" name="" owner="46925" />
  223.     <card id="27038" file="card_27038.xml" marked="false" name="GlobalList 1.1" owner="46925" />
  224.     <card id="27500" file="card_27500.xml" marked="false" name="GlobalMaster 1.0" owner="46925" />
  225.     <card id="54677" file="card_54677.xml" marked="false" name="" owner="46925" />
  226.     <card id="27982" file="card_27982.xml" marked="false" name="ICNToICON 1.6" owner="46925" />
  227.     <card id="28613" file="card_28613.xml" marked="false" name="Infoid 1.1" owner="46925" />
  228.     <card id="28994" file="card_28994.xml" marked="false" name="IsFile 1.0" owner="46925" />
  229.     <card id="29646" file="card_29646.xml" marked="false" name="IsFinderLocked 1.1" owner="46925" />
  230.     <card id="30174" file="card_30174.xml" marked="false" name="IsFolder 1.0" owner="46925" />
  231.     <card id="30611" file="card_30611.xml" marked="false" name="IsObject 1.0" owner="46925" />
  232.     <card id="31115" file="card_31115.xml" marked="false" name="KillRes 1.2" owner="46925" />
  233.     <card id="31662" file="card_31662.xml" marked="false" name="LineCount 1.7" owner="46925" />
  234.     <card id="32059" file="card_32059.xml" marked="false" name="" owner="46925" />
  235.     <card id="32741" file="card_32741.xml" marked="false" name="" owner="46925" />
  236.     <card id="33076" file="card_33076.xml" marked="false" name="ListSelect 4.1" owner="46925" />
  237.     <card id="33564" file="card_33564.xml" marked="false" name="MacType 1.3" owner="46925" />
  238.     <card id="34161" file="card_34161.xml" marked="false" name="Menu 2.1" owner="46925" />
  239.     <card id="34723" file="card_34723.xml" marked="false" name="Menu 2.1-2" owner="46925" />
  240.     <card id="35046" file="card_35046.xml" marked="false" name="Mousoid 1.1" owner="46925" />
  241.     <card id="48235" file="card_48235.xml" marked="false" name="" owner="46925" />
  242.     <card id="35576" file="card_35576.xml" marked="false" name="Notification 1.0" owner="46925" />
  243.     <card id="35889" file="card_35889.xml" marked="false" name="NubusList 1.0" owner="46925" />
  244.     <card id="36436" file="card_36436.xml" marked="false" name="PPCList 1.0" owner="46925" />
  245.     <card id="36973" file="card_36973.xml" marked="false" name="" owner="46925" />
  246.     <card id="37598" file="card_37598.xml" marked="false" name="Privileges 1.2" owner="46925" />
  247.     <card id="38114" file="card_38114.xml" marked="false" name="Prompt 2.5" owner="46925" />
  248.     <card id="38572" file="card_38572.xml" marked="false" name="" owner="46925" />
  249.     <card id="39452" file="card_39452.xml" marked="false" name="RemoveFolder 1.1" owner="46925" />
  250.     <card id="53715" file="card_53715.xml" marked="false" name="" owner="46925" />
  251.     <card id="51130" file="card_51130.xml" marked="false" name="" owner="46925" />
  252.     <card id="39961" file="card_39961.xml" marked="false" name="ResText 1.1" owner="46925" />
  253.     <card id="40670" file="card_40670.xml" marked="false" name="" owner="46925" />
  254.     <card id="55177" file="card_55177.xml" marked="false" name="" owner="46925" />
  255.     <card id="57568" file="card_57568.xml" marked="false" name="" owner="46925" />
  256.     <card id="41187" file="card_41187.xml" marked="false" name="SendPS 1.3" owner="46925" />
  257.     <card id="41535" file="card_41535.xml" marked="false" name="SetFileFlag 1.1" owner="46925" />
  258.     <card id="42042" file="card_42042.xml" marked="false" name="SetFinderLock 1.1" owner="46925" />
  259.     <card id="42655" file="card_42655.xml" marked="false" name="SetMode 1.2" owner="46925" />
  260.     <card id="43137" file="card_43137.xml" marked="false" name="ShowHideFolder 1.1" owner="46925" />
  261.     <card id="43746" file="card_43746.xml" marked="false" name="SoundRecord 1.4" owner="46925" />
  262.     <card id="51907" file="card_51907.xml" marked="false" name="" owner="46925" />
  263.     <card id="44235" file="card_44235.xml" marked="false" name="StrWidth 1.0" owner="46925" />
  264.     <card id="58131" file="card_58131.xml" marked="false" name="" owner="46925" />
  265.     <card id="44657" file="card_44657.xml" marked="false" name="Tabloid 1.1" owner="46925" />
  266.     <card id="45258" file="card_45258.xml" marked="false" name="" owner="46925" />
  267.     <card id="52366" file="card_52366.xml" marked="false" name="" owner="46925" />
  268.     <card id="45655" file="card_45655.xml" marked="false" name="WindName 1.1" owner="46925" />
  269.     <card id="52820" file="card_52820.xml" marked="false" name="" owner="46925" />
  270. </stack>
  271.